home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / wolledopus / dopus5 / arexx / DiskStart.dopus5 < prev    next >
Text File  |  1997-11-17  |  1KB  |  46 lines
  1. /*
  2. $VER: DiskStart.dopus5 V0.98 (29.10.1997) © Marco Wollkopf
  3. E-Mail: Marco.Wollkopf@t-online.de
  4. Homepage: http://home.t-online.de/home/Marco.Wollkopf
  5.  
  6. Falls auf einem eingelegten Datenträger das DOS-Script s/Startup
  7. oder das ARexx-Script s/Startup.rexx vorhanden sind werden diese ausgeführt. 
  8.  
  9.  
  10. Einstellungen:
  11. Einstellungen»Scripte»Disk eingelegt
  12. -----------------------------------------------
  13. [ARexx] DOpus5:ARexx/DiskStart.dopus5 {Qp} {Qa}
  14. -----------------------------------------------
  15.  
  16. */
  17.  
  18. options results
  19. parse arg port disk
  20.  
  21. IF port ~= "" THEN
  22.     ADDRESS value(port)
  23. ELSE DO
  24.     say "Script muß von DirOpus aufgerufen werden"
  25.     exit
  26. END
  27.  
  28. IF disk ~= "" THEN DO
  29.         disk = strip(strip(disk,'b',' '),'b','"')
  30.         IF exists(disk||'s/startup') THEN DO
  31.           kommando = disk||'S/Startup'
  32.             dopus request '"'"Soll das Script "||kommando||" ausgeführt werden?"'" _Ausführen|_nicht Ausführen'
  33.             if rc = 0 then nop
  34.             else
  35.             address command execute kommando
  36.         END
  37.         IF exists(disk||'s/startup.rexx') THEN DO
  38.             kommando = disk||'S/Startup.rexx'
  39.             dopus request '"'"Soll das Script "||kommando||" ausgeführt werden?"'" _Ausführen|_nicht Ausführen'
  40.             if rc = 0 then nop
  41.             else            
  42.             address command rx kommando
  43.         END
  44. END
  45. ELSE NOP
  46.